I would rather work with exact rational numbers:
expression = (179424673 (n + 9999980*2 (179424407 + n)))/((179424407 +
n) (-0.32 + n + 179424407 (9999980*2 + n))) // Rationalize
results = Table[expression, {n, 1, 100}];
Count[results, r_ /; r >= 1]
Plot[expression, {n, 0, 100}, GridLines -> {{29}, {1}}]