If you want to do with your for loop you could do something like the following
> for i from 0 to 25 do assign('result',[op(result),[i,evalf(eval(eq2,t=i))]]) end do:
Now to plot these results you can just call
You may also find that the for loop isn't the most effecient for all your tasks, for example you could use the seq command to do the same thing in this way
> result:= [seq([i,evalf(eval(eq2,t=i))], i=0..25)];
Since you have such a small number of points you are evaluating at, you may not notice too much of an improvement, but as you get to a larger number of points you may want to try this.