Some issues.
This does not look right, there is no body in the loop, and For evaluates to Null unless it has a Return.
ite=For[y=0,y<=500,y++;x=.0+.01*y];
s depends on m
s = (4.7 + I m \[Pi])/t
but earlier in the code m depends on s, which results in the recursion
m = (1 + \[Tau]q s + 1/2 (\[Tau]q s)^2)
