ReplaceAll[((Ceiling[l/m]-l/m) w ) m, {l -> 8.3, w -> 6.7, m -> 1.0}]