There is no delay in printing
Do[Print[n, " ", n^2], {n, 1, 10000}]
for me in Version 10 on OSX.
By the way you might be better off be using CellPrint rather than Print when printing a formatted Cell though this has nothing to do with the other issues you are observing on your system.
For me, your code,
list = Table[{i^3, j^3, i^3 + j^3}, {i, 1, 1000}, {j, i + 1,
1000}]; list = Partition[Flatten[list], 3]; list =
SortBy[list, #[[3]] &];
Do[If[list[[q, 3]] == list[[q + 1, 3]],
Print[TextCell[
Row[{ExpressionCell[list[[q, 1]]]^3, "+",
ExpressionCell[list[[q, 2]]]^3, " = ",
ExpressionCell[list[[q + 1, 1]]]^3, "+",
ExpressionCell[list[[q + 1, 2]]]^3, " = ",
ExpressionCell[list[[q, 3]]]}]]]], {q, 1,
Length[list] - 1}]
also startes to print out results almost immediately upon execution...