Rather than use Print, put the Graphics into a TextCell and use CellPrint as in this example:

For[i = 0, i < 5, i++, 
  CellPrint[
   TextCell[Graphics[{Line[{{-3, -1}, {3, -1 + i}}]}], "Text"]]] ;

thanks for your reply!

I didn't do a very good job of explaining my exact problem. It is not possible for me to eliminate the FOR Loop because there are other statements inside that loop. For simplicity, I did not show them. But the FOR Loop is running a simulation, and each time the loop completes an iteration - I would like to show the Graphics.

I did discover that if I put a Print statement around the Graphics, Mathematica will show the results Print[ Graphics[obj] ] The only problem with the Print statement is that it looks as if part of the Graphics is cut off ... Mathematica is not displaying the full region defined by the graphics. Perhaps there is some sort of option with Print that tells the software to expand the boundaries so that all graphics objects will be displayed?

BTW, I know you are wondering why I do a simulation with a FOR Loop. The answer is ... for very large and complicated simulations, I have found it helpful to control the main iteration (over time) with a simple FOR Loop. It actually makes the calculations much easier to de-bug when you are trying to work out what happened at any specific place in a given iteration. :-)

thanks, Pete