Tracing – Generates plot coordinates for the TikZ draw command

Is there a clever way to generate a TikZ drawing coordinate sequence in Mathematica? The following commands work pretty well

there[x_] : = Log[2, (2 x - 200)/(x - 200)]
Table[{i, y[i]}, {i, 201, 2000, 10}]// NOT

but ends at the exit

{{201., 7.65821}, {211., 4.33498}, ...

I can post-process it in a text editor, but it would be better to take it out in Mathematica as

(201., 7.65821) -
(211., 4.33498) -
(221., 3.52655) -
(231., 3.07923) -
(241., 2.78200) -
...

or something similar, to easily use with the draw command TikZ. I could go through the list and the "format";

Clear[i, y];
there[x_] : = Log[2, (2 x - 200)/(x - 200)];
coordinates = Table[{i, y[i]}, {i, 201, 2000, 10}]// NOT;
tikzlist = {};
For[i = 1, i <= Length[coordinates], i ++,
x = coordinates[[i]][[1]];
y = coordinates[[i]][[2]];
tikzlist =
tikzlist <> "(" <> ToString[x] <> "," <> ToString[y] <> ") -";
]tikzlist = StringTake[tikzlist, StringLength[tikzlist] - 2]<> ";"

but maybe there is a shorter command of a line that does the job better and more efficiently. TIA.