I do not know what you mean exactly. You could show intermediate results (and therefore the progress of a calcualtion) like this
ShowStatus[status_] :=
LinkWrite[$ParentLink, SetNotebookStatusLine[FrontEnd`EvaluationNotebook[],
ToString[status]]]
Then for example
Do[
If[Mod[i, 30] == 0, ShowStatus[i]],
{i, 1, 150000}]
Look at the status line low left of your notebook