Your problem is that the v=Length[e] is in the While loop -- it needs to be outside -- the loop never runs a second time the way you have it. Do this (this is after 3 iterations with phi = 61):
v = Length[e];
While[Length[e] <= v,
If[CoprimeQ[phi, z], {y, {a, b}} = ExtendedGCD[phi, z];
If[b > 0, e = Append[e, {z, b}]]];
z++; Print["z = ", z, "; v=", v, "; e = ", e]]
z = 10; v=2; e = {{1,1},{8,23}}
z = 11; v=2; e = {{1,1},{8,23}}
z = 12; v=2; e = {{1,1},{8,23}}
z = 13; v=2; e = {{1,1},{8,23}}
z = 14; v=2; e = {{1,1},{8,23}}
z = 15; v=2; e = {{1,1},{8,23}}
z = 16; v=2; e = {{1,1},{8,23}}
z = 17; v=2; e = {{1,1},{8,23}}
z = 18; v=2; e = {{1,1},{8,23},{17,18}}