I am pretty sure there is a more elegant solution to your problem. But try this
plt = ContourPlot[{Abs[x + I y] == 2, Abs[x + (x + I y)^2 + I y] == 2}, {x, -2, 2}, {y, -2, 2}]
curve is the number of the curve which you want to extract:
curve = 2;
ind = Flatten[List @@ plt[[1, 2, 1, curve + 2, 2]]];
Now get the points you want to have:
points = List @@ plt[[1, 1]][[#]] & /@ ind
and look
plt2=ListPlot[points]
Show[plt2, plt]