Using a Do loop should be avoided in the answer of Paul, and Nearest is not used in a smart way. The answer of Joel has a similar problem as multiple datapoints could be selected; it depends on the factor 0.1 and 0.9 (ok for this test-data, but not a general solution). A faster/better way is as follows:

SetDirectory[NotebookDirectory[]];
data = Import["frequency-and-phase-data.csv"];
d = 500   (*the displacement *)
find = Range[Floor[Min[data[[All, 1]]], \[Delta]], Ceiling[Max[data[[All, 1]]], \[Delta]], \[Delta]] (*the points you look for*)
nf = Nearest[#[[1]] -> # & /@ data] (* make optimised nearest function*)
selected = First@*nf /@ find (* find for each point *)

{{50., 0.217746}, {501.75, 0.261843}, {1001.28, 0.509}, {1500.81, 
  0.595829}, {2000.34, 0.847844}, {2499.88, 0.932532}, {2999.41, 
  1.44334}, {3498.94, 1.67507}, {3998.47, 1.95012}, {4498., 
  2.02858}, {5001.88, 2.22979}, {5501.41, 2.45856}, {6000.94, 
  2.42086}, {6500.47, 2.26449}, {7000., 2.18439}}

You might have to interchange Floor and Ceiling, depending on how you want to handle the 'ends'.

First, look at the help of Nearest, second definition:

Nearest[{Subscript[elem, 1]->Subscript[v, 1],Subscript[elem, 2]->Subscript[v, 2],[Ellipsis]},x] gives the Subscript[v, i] corresponding to the Subscript[elem, i] to which x is nearest.

Second, I have no idea how you got a Hold to be honest.

First@*nf 

is the same as (in outcome)

First[nf[#]]&

Basically applying first the nearest function, then taking the First, but it works as a single function.

First@nf /@ 

does not do what you want:

f@g /@ {1, 2, 3, 4}
f@*g /@ {1, 2, 3, 4}

gives:

{f[g][1], f[g][2], f[g][3], f[g][4]}

{f[g[1]], f[g[2]], f[g[3]], f[g[4]]}

Note that in the first example f is applied to g, not g[1] ! It has to do with precedence(order, ranking) of the operators.

The "Select" function with a criteria is your friend in this case. The creation of a suitable criteria function would be the complicated part..

Using data supplied from your other post, this is something congruent to your query...

Select[thedata, (FractionalPart[IntegerPart[#[[1]]]/50] < 
     0.1) || (FractionalPart[IntegerPart[#[[1]]]/50] > 0.9) &] 

As mentioned above, you will need to tweak the criteria function to meet your specific application.

The "Nearest" function (see the online documentation) might also be applicable, but I am unfamiliar with it's use. I do not know how you would construct a criteria to narrow your results from "Nearest"...