> Is there any way to `Print` without suffering form auto-scrolling in the front end?

You can define a custom `myPrint` function with `AutoScroll -> False`:

    myPrint[expr_] := 
     NotebookWrite[EvaluationNotebook[], 
      Cell[BoxData@ToBoxes@expr, "Print"], AutoScroll -> False]